home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / bipl.zip / IDOL.ZIP / SINVKTST.IOL < prev    next >
Text File  |  1991-12-30  |  252b  |  14 lines
  1. class sinvbuffer : strinvokable()
  2.   method forward_char()
  3.     write("success")
  4.   end
  5.   method eval(s,args[])
  6.     suspend self$strinvokable.eval(map(s,"-","_"))
  7.   end
  8. end
  9.  
  10. procedure main()
  11.   x := sinvbuffer()
  12.   x $ eval("forward-char")
  13. end
  14.